home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-websites-
/
wirenet
/
files
/
getstatus.lha
/
GetStatus
Wrap
Text File
|
1999-01-01
|
643b
|
25 lines
/* Get status from U-Net and display if information has changed */
options results
address command
/* Change these if you need to */
StatusFile = 'S:U-Net.Status'
Fingercmd = 'finger'
Window = 'CON:0/0/615/200/Status/AUTO/CLOSE/WAIT/INACTIVE'
/* Don't change these */
Server = 'status@status.u-net.net'
if ~show('L','rexxsupport.library') then do
if ~addlib('rexxsupport.library',0,-30) then call ShutDown('Failed to open rexxsupport.library')
end
OldSize = subword(statef(StatusFile),2,1)
FingerCmd Server '>'StatusFile
NewSize = subword(statef(StatusFile),2,1)
if NewSize ~= OldSize then 'Type' StatusFile '>'Window
exit